Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/prog_d/qrep097a.zip/SIMPREP.DFM/SIMPREP.txt

Text File | 1996-01-13 | 7KB | 329 lines

object SimpForm: TSimpForm
  Left = 291
  Top = 234
  Width = 799
  Height = 257
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'SimpForm'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object TitleBand: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 53
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrInchesHV
    object Image1: TImage
      Left = 12
      Top = 4
      Width = 69
      Height = 33
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object QRLabel1: TQRLabel
      Left = 96
      Top = 4
      width = 193
      height = 36
      Caption = 'QuickReport'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel2: TQRLabel
      Left = 300
      Top = 20
      width = 61
      height = 16
      Caption = 'for Delphi'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRLabel3: TQRLabel
      Left = 476
      Top = 20
      width = 257
      height = 16
      Caption = 'Copyright (c) 1996 Allan Lochert / QSD as'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
    end
    object QRShape1: TQRShape
      Left = 8
      Top = 44
      width = 733
      Height = 5
      Brush.Color = clNavy
      Shape = qrsRectangle
    end
  end
  object DetailBand: TQRBand
    Left = 0
    Top = 73
    Width = 1200
    Height = 20
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 12
      Top = 0
      width = 213
      height = 17
      DataSource = DataSource1
      DataField = 'Company'
    end
    object QRDBText2: TQRDBText
      Left = 440
      Top = 0
      width = 117
      height = 17
      DataSource = DataSource1
      DataField = 'Contact'
    end
    object QRDBText3: TQRDBText
      Left = 568
      Top = 0
      width = 85
      height = 17
      DataSource = DataSource1
      DataField = 'Phone'
    end
    object QRDBText4: TQRDBText
      Left = 660
      Top = 0
      width = 85
      height = 17
      DataSource = DataSource1
      DataField = 'FAX'
    end
    object QRDBText5: TQRDBText
      Left = 240
      Top = 0
      width = 90
      height = 16
      AutoSize = True
      DataSource = DataSource1
      DataField = 'Addr1'
      Transparent = True
    end
  end
  object PageFooterBand: TQRBand
    Left = 0
    Top = 93
    Width = 1200
    Height = 24
    Align = alTop
    BandType = rbPageFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRSysData1: TQRSysData
      Left = 640
      Top = 4
      width = 89
      height = 17
      Alignment = taRightJustify
      AlignToBand = True
      AutoSize = False
      Data = qrsPageNumber
      Text = 'Page '
    end
  end
  object QRBand1: TQRBand
    Left = 0
    Top = 53
    Width = 1200
    Height = 20
    Align = alTop
    BandType = rbColumnHeader
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRLabel4: TQRLabel
      Left = 12
      Top = 1
      width = 60
      height = 16
      Caption = 'Company'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel5: TQRLabel
      Left = 240
      Top = 1
      width = 50
      height = 16
      Caption = 'Address'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel6: TQRLabel
      Left = 440
      Top = 1
      width = 48
      height = 16
      Caption = 'Contact'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel7: TQRLabel
      Left = 568
      Top = 1
      width = 41
      height = 16
      Caption = 'Phone'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
    object QRLabel8: TQRLabel
      Left = 660
      Top = 1
      width = 24
      height = 16
      Caption = 'Fax'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
    end
  end
  object QRBand2: TQRBand
    Left = 0
    Top = 117
    Width = 1200
    Height = 16
    Align = alTop
    BandType = rbGroupFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
  end
  object SimpRep: TQuickReport
    DataSource = DataSource1
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PrintOrder = qrColByCol
    ReportTitle = 'QuickReport Simple report demonstration'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 140
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexName = 'ByCompany'
    TableName = 'CUSTOMER.DB'
    Left = 36
    Top = 140
    object Table1Company: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object Table1CustNo: TFloatField
      FieldName = 'CustNo'
    end
    object Table1Addr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object Table1Addr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object Table1City: TStringField
      FieldName = 'City'
      Size = 15
    end
    object Table1State: TStringField
      FieldName = 'State'
    end
    object Table1Zip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object Table1Country: TStringField
      FieldName = 'Country'
    end
    object Table1Phone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object Table1FAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object Table1TaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object Table1Contact: TStringField
      FieldName = 'Contact'
    end
    object Table1LastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 68
    Top = 140
  end
  object QRGroup1: TQRGroup
    FooterBand = QRBand2
    Level = 0
    OnNeedData = QRGroup1NeedData
    Left = 16
    Top = 172
  end
end